home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Resource Library: Multimedia
/
Resource Library: Multimedia.iso
/
hypercrd
/
nwmxcmsm
/
chldrnsg.hqx
/
Childrens graphics (elem)
/
stack.txt
< prev
Wrap
Text File
|
1991-12-03
|
5KB
|
165 lines
-- stack: in
-- format: 10 (HyperCard 2)
-- flags: 0x1000 (none)
-- protect password hash: 0
-- maximum user level: 5 (scripting)
-- window: Rect(x1=64, y1=69, x2=576, y2=411)
-- screen: Rect(x1=0, y1=0, x2=640, y2=480)
-- card dimensions: w=0 h=0
-- scroll: x=0 y=0
-- background count: 3
-- first background id: 2647
-- card count: 6
-- first card id: 2983
-- list block id: 2156
-- print block id: 3486
-- font table block id: 6841
-- style table block id: 6531
-- free block count: 4
-- free size: 12256 bytes
-- total size: 49152 bytes
-- stack block size: 4096 bytes
-- created by hypercard version: 0x01258000
-- compacted by hypercard version: 0x02018000
-- modified by hypercard version: 0x02018000
-- opened by hypercard version: 0x02018000
-- patterns[0]: 0x0000000000000000
-- patterns[1]: 0x8000000008000000
-- patterns[2]: 0x8800220088002200
-- patterns[3]: 0x8888222288882222
-- patterns[4]: 0x88AA22AA88AA22AA
-- patterns[5]: 0xCCAA33AACCAA33AA
-- patterns[6]: 0xEEAABBAAEEAABBAA
-- patterns[7]: 0xEEBBBBEEEEBBBBEE
-- patterns[8]: 0xFFBBFFEEFFBBFFEE
-- patterns[9]: 0xFFBBFFFFFFBBFFFF
-- patterns[10]: 0x8010022001084004
-- patterns[11]: 0xFFFFFFFFFFFFFFFF
-- patterns[12]: 0x8822882288228822
-- patterns[13]: 0x1122448811224488
-- patterns[14]: 0xC4800C6843023026
-- patterns[15]: 0xB130031BD8C00C8D
-- patterns[16]: 0xAA00AA00AA00AA00
-- patterns[17]: 0x8822552288225522
-- patterns[18]: 0x8855225588552255
-- patterns[19]: 0x77DD77DD77DD77DD
-- patterns[20]: 0x8000000000000000
-- patterns[21]: 0xAA55AA55AA55AA55
-- patterns[22]: 0x038448300C020101
-- patterns[23]: 0x8244394482010101
-- patterns[24]: 0x8814224188412214
-- patterns[25]: 0x8080413E080814E3
-- patterns[26]: 0x22048C7422179810
-- patterns[27]: 0xBE808808EB088880
-- patterns[28]: 0x25C8328964244C92
-- patterns[29]: 0xA29C41BE2AC914EB
-- patterns[30]: 0x40A00000040A0000
-- patterns[31]: 0x8040200002040800
-- patterns[32]: 0xAA00800088008000
-- patterns[33]: 0xFF80808080808080
-- patterns[34]: 0x081C22C180010204
-- patterns[35]: 0xFF808080FF080808
-- patterns[36]: 0xF87422478F172271
-- patterns[37]: 0xBF00BFBFB0B0B0B0
-- patterns[38]: 0xFF7FBE5DA2418000
-- patterns[39]: 0xFAF5FAF5A050A050
-- checksum: 0x605DE496
----- HyperTalk script -----
on openStack
global menu1,menu2
put newMenu("Water","Find it","Get it","Humans","Biological diversity", "A Difference","(-","Main Menu","(-","Water Help") into menu1
put newMenu("Video","Laser","Tape") into menu2
end openStack
on closeStack
global menu1,menu2
put deleteMenu(menu1) into menu1
put deleteMenu(menu2) into menu2
end closeStack
on doMenu which
global menu1,menu2
if which is "Find it" then
visual effect dissolve slow to black
wait 5
visual effect dissolve slow
go to stack "where we find water"
else if which is "Get it" then
visual effect dissolve slow to black
wait 5
visual effect dissolve slow
go to stack "where we get water"
else if which is "Humans" then
visual effect dissolve slow to black
wait 5
visual effect dissolve slow
go to stack "human adaptation"
else if which is "Biological diversity" then
visual effect dissolve slow to black
wait 5
visual effect dissolve slow
go to stack "biological diversity"
else if which is "A Difference" then
visual effect dissolve slow to black
wait 5
visual effect dissolve slow
go to stack "we make a difference"
else if which is "Main Menu" then
visual effect dissolve slow to black
wait 5
visual effect dissolve slow
go to stack "database-1"
else if which is "Water Help" then
push card
visual effect dissolve slow to black
wait 5
visual effect dissolve slow
go to card "help" in stack "database-1"
else if which is "Laser" then
answer "Coming soon to a Laser Optical Disk Player!" with "OK"
else if which is "Tape" then
answer "You have got to be kidding!" with "OK"
else
pass doMenu
end if
end doMenu
on sicEmFido
global ContinueOrNot, searchString
if ContinueOrNot is NoGo then
put empty into ContinueOrNot
exit sicEmFido
end if
ask "Type in the word or phrase you want to find." with searchString
if the result is cancel then
answer "Ending search"
exit sicEmFido
end if
put it into searchString
sniffOut
end SicEmFido
on sniffOut
global ContinueOrNot, searchString
find whole searchString
if the result is empty then
answer "Do you want to search for further occurences?" with "Yes" or "No" or "Another"
if it is "Yes" then
sniffOut
end if
if it is "No" then
answer "The search is complete."
put NoGo into ContinueOrNot
sicEmFido
end if
if it is "Another" then
sicEmFido
end if
end if
if the result is not empty then
answer "I did not find your selection."
end if
end sniffOut